subroutine wmnij_iefmn_t2efij(wmnij, iabij, &
              t2, icore, fact)
!
use mod_orbit
use mod_ioff 
implicit none
!
real*8, intent(in) :: fact
real*4, intent(in) :: wmnij(*)
real*4, intent(in) :: iabij(*)
!
real*4, intent(inout) :: t2(*), icore(*)
!
integer :: i, j, a, b, nsize
real*8, external :: dnrm2
!this is to do wmnij = wmnij + 0.5*t(ef,ij)*<ef||mn>
! ABAB
call VmnpqVmnrs_to_Vpqrs(iabij(ioi3(2)), t2(ioi3(2)), 1, 1, vrta, vrtb, 1, &
               popa, popb, 1, popa, popb, 1, wmnij(ioi1(2)), 1, fact*2.d0, 1.d0)
!
return
end
